# 计算样本均值和中位数
mean() 
median()
# 特殊一点的
# 计算五数（最小值、第三4分位数、中位数、第一4分位数、最大值）
fivenum()
# 计算五数与均值
summary()
# 计算其他样本分位数
quantile
# 计算标准差、方差
sd()
var()
# 计算离差
mad()

# 进一步的，计算峰度与偏度
install.packages("moments")
library(moments)
skewness()
kurtosis()

# e.g.
# 以雌性负鼠的样本数据为例
install.packages("DAAG")
library(DAAG)
# 程序包 DAAG 中有内嵌数据集 possum
# 包含了从维多利亚南部到皇后区总计 104 只负鼠
# 年龄、尾巴的长度、总长度等 9 个特征值
# 这里以雌性负鼠的总长度为目标总体
attach(possum)
summary(possum)
attributes(possum)
fpossum <- possum[possum$sex=="f",]
#
mean(fpossum$totlngth) # 均值
#
fivenum(fpossum$totlngth) #计算五数
#
summary(fpossum$totlngth) # 均值与五数
#
quantile(fpossum$totlngth) # 分位数
#
quantile(fpossum$totlngth ,prob=c(0.25,0.5,0.75)) # 仅选用该三个概率值点
#
median(fpossum$totlngth) # 中位数
#
max(fpossum$totlngth) # 最大值
#
min(fpossum$totlngth) # 最小值
#
max(fpossum$totlngth)-min(fpossum$totlngth)
#
IQR(fpossum$totlngth) # 四分位极值函数
#
sd(fpossum$totlngth) # 标准差
#
sd(fpossum$totlngth)^2 # 方差
# 或
var(fpossum$totlngth) #
#
mad(fpossum$totlngth) # 绝对离差

